home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / defchr.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  951 b   |  16 lines
  1. 10 PRINT "CREATION DE MATRICES";:FOR I=1 TO 7:PRINT:PRINT ".....";I;" (";CHR$(255);")";:NEXT I:LOCATE 0,0
  2. 20 X=0:Y=1:F=0:ERASE A,T$:DIM A(4,7),T$(4):FOR I=0 TO 4:T$(I)="00":NEXT I:DEFCHR$(255)="0000000000"
  3. 30 A$=INKEY$:IF A$="" THEN LOCATE X,Y:PRINT CHR$(32+F*(14-89*(A(X,Y)=1)));:F=1-F:GOTO 30 ELSE A=ASC(A$)
  4. 40 LOCATE X,Y:PRINT CHR$(46-89*(A(X,Y)=1));
  5. 50 IF A=28 AND X<4 THEN X=X+1
  6. 60 IF A=29 AND X>0 THEN X=X-1
  7. 70 IF A=30 AND Y>1 THEN Y=Y-1
  8. 80 IF A=31 AND Y<7 THEN Y=Y+1
  9. 90 IF A=13 THEN 150
  10. 100 IF A=18 THEN GOSUB 40:A=28:GOTO 50
  11. 110 IF A=73 THEN XX=X:FOR X=0 TO 4:FOR J=1 TO 7:LOCATE X,J:A(X,J)=1-A(X,J):PRINT CHR$(46-89*(A(X,J)=1));:NEXT J:GOSUB 140:NEXT X:X=XX
  12. 120 GOTO 30
  13. 130 A(X,Y)=1-A(X,Y):LOCATE X,Y:PRINT CHR$(46-89*(A(X,Y)=1));
  14. 140 T=0:FOR I=1 TO 7:T=T-(A(X,8-I)=1)*2^I:NEXT I:T$(X)=RIGHT$(HEX$(T),2):DEFCHR$(255)=T$(0)+T$(1)+T$(2)+T$(3)+T$(4):RETURN
  15. 150 CLS:CALC$=CHR$(34)+T$(0)+T$(1)+T$(2)+T$(3)+T$(4)+CHR$(34):ERASE T$,A
  16.